Attribute VB_Name = "modTrimVbNullString"
Public Function LPSTRToVBString(ByVal strContainNull As String) As String

    Dim lngNullPos As Long

    lngNullPos = InStr(strContainNull, Chr$(0))

    If lngNullPos > 0 Then

        LPSTRToVBString = Left$(strContainNull, lngNullPos - 1)

    Else

        LPSTRToVBString = vbNullString

    End If

End Function
